home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1297 / AMOSLIST / text0129.txt < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.4 KB  |  68 lines
  1. It was on the night of 13-Dec-97, when no creatures were stirring, and all was
  2. silent. Suddenly, Jens jumped out from behind a rock and wouldnt stop shouting
  3. about "GUI extension.." until I was forced to knock them out:
  4. -> Hello..
  5.  
  6. -> I've started to use the GUI extension (great stuff) but a few questions
  7. -> has popped up:
  8.  
  9. -> 1) The command 'Gui Title' is noted in the guide, however that command
  10. ->    does not exist (Looked in the lib with a hex-monitor and found that
  11. ->    the command is called 'Gui Titles')..
  12.  
  13. This is a known bug in the guide file. You also have to have 2 entries for
  14. each command, where IIRC the guide said you could use just one.
  15.  
  16. -> 2) While looking in the lib I noted that the extension calls up the
  17. ->    'Gadtools.Library'. Is this a rom-lib (like exec) or should it be
  18. ->    in my libs: (it isn't there but the extension runs great anyway)..
  19.  
  20. It works fine without it, as it is a ROM lib.
  21.  
  22. -> 3) There's a slight bug in 'Gui Asl', if I pad the path with '/' (like
  23. ->    'ab3:includes/' then the returned filename holds two '/' in row 
  24. ->    ('ab3:includes//test.lnk') and the file can't be found by amos..
  25.  
  26. Yes, I fixed this problem in one of my examples for the next release of the
  27. extension. Le,mme get the code...
  28.  
  29.    If A=9
  30.       ' Grab a file from the user
  31.       Do 
  32.          F$=Gui Asl$("Pick a List of Email
  33. recipients..."+Chr$(0),Dir$,"",Chr$(0))
  34.          F$=Gui Dir$
  35.          If Mid$(F$,Len(F$),1)<>"/" and Mid$(F$,Len(F$),1)<>":" : F$=F$+"/" :
  36. End If 
  37.          F$=F$+Gui File$
  38.          
  39.          If Gui File$="" : Exit : End If : Rem Exit 
  40.          
  41.          If Exist(F$) and F$<>""
  42.             Dir$=Gui Dir$
  43.             TEMP$="" : Gui Set 1,2,0,Varptr(TEMP$)
  44.             TEMP$=F$ : Gui Set 1,2,0,Varptr(TEMP$)
  45.             Exit 
  46.          End If 
  47.       Loop 
  48.    End If 
  49.  
  50. This is the code I use in my MPDMailpostV2 routine, and it handles it all
  51. fine. It also handles the bug for when you change directorys, as it will
  52. only add the / onto the end if it really needs it.
  53.  
  54. Any other questions, just ask!
  55.  
  56. Andrew "Mushroom" Kellett
  57. --
  58.  Email: Andy Kellett <mushypd@redrose.net>  Team *AMOS* + IAPA Team *AMIGA*
  59.   alt.religion.amos - AMOS now on usenet! AMOS Mailinglist also mirrored
  60.  
  61.      World's Largest AMOS Homepages - http://www.mushy-pd.demon.co.uk
  62.                Official F1 Software Distributor for the USA
  63.  
  64.          Massive FTP site with AMOS/C64 and Mods/Samples + more at
  65.                             mushy-pd.dyn.ml.org
  66.  
  67.  
  68.